1 A$="A206A0008414A9A08515C03F900AA515C9BFD004CAD0EB60B114C93F9007293F4A094091"
2 FORI=1TO44:POKE#3FF+I,VAL("#"+MID$(A$+"14C8D0E3E615D0DE",I*2-1,2)):NEXT
3 '  Routine relogeable permettant le decalage de l'ecran HIRES
4 '  vers la roite jusqu'a effacement (en 6 fois)
5 '  Faire CALL#400